(hide-bibtex-entry-bodies): Don't use replace-regexp.

diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el
index 19a7561eeb537620757490ac0ef2a70f9327ebfa..4d7e5908005b127890b4138a1f2a2963e8987453 100644 (file)
--- a/lisp/textmodes/bibtex.el
+++ b/lisp/textmodes/bibtex.el
@@ -797,7 +797,10 @@ With argument, show all text."
       (if arg
          (subst-char-in-region (point) (point-max) ?\r ?\n t)
        (while (save-excursion (re-search-forward "\n[^@]" (point-max) t))
-         (save-excursion (replace-regexp "\n\\([^@]\\)" "\r\\1"))))
+         ;; (save-excursion (replace-regexp "\n\\([^@]\\)" "\r\\1"))
+         (save-excursion
+           (while (re-search-forward "\n\\([^@]\\)" nil t)
+             (replace-match "\r\\1" nil nil)))))
       (setq selective-display (not arg))
       (set-buffer-modified-p modifiedp))))